Դhttp://bbs.pjhome.net/thread-19636-1-1.html
ռhttp://iyuer.com/ilank
Attachment_pjblog.rar

Ҫܣ
1.ȫUBBFCK༭
2.ʵϴĸ(̨Թرմ˹)
3.ʵϴͼƬˮӡĹܣ̨ˮӡܵ
4.Դ̨ԶϴĸϢ޸
5.̨ӸϢʵֶļ·ع
6.ûظʱɼ¼شԼʾĴСϢ
7.wbcĸܣɾϴĸ
8.ѡ񸽼ʽ

 V3.0 For PJBlog2
1.2.0еBUG
2.ǿ˷
3.ַʽݺ̨
4.°汾˶Ӱļķ
5.˸͵Զʶ


װ3
һáDreamweaverҳ༭ header.asp
ҵ  
Dim BlogTitle

ĳ  
 response.cookies("shotan")= "ilankpj"
 Session("shotan")="ilankpj" 
 Dim BlogTitle

ע⣺cookieʱ򣬿Խֵ ilank_blog ΪֵһǸֵһҪdownload.aspе if Request.cookies("shotan")= "ilankpj" һ޸ģֵ֤ͬ

ڶáDreamweaverҳ༭ common/ubbcode.asp
ҵ   
'-----------ǩ----------------
                re.Pattern = "\[down=(.[^\]]*)\](.[^\[]*)\[\/down]"
                Set strMatchs=re.Execute(strContent)
                For Each strMatch in strMatchs
                        tmpStr1=checkURL(strMatch.SubMatches(0))
                        tmpStr2=strMatch.SubMatches(1)
                        strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""ļ"" style=""margin:0px 2px -4px 0px""/> <a href="""&tmpStr1&""" target=""_blank"">"&tmpStr2&"</a>",1,-1,0)
                Next                
                
                re.Pattern = "\[down\](.[^\[]*)\[\/down]"
                Set strMatchs=re.Execute(strContent)
                For Each strMatch in strMatchs
                        tmpStr1=checkURL(strMatch.SubMatches(0))
                        strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""ļ"" style=""margin:0px 2px -4px 0px""/> <a href="""&tmpStr1&""" target=""_blank"">شļ</a>",1,-1,0)
                Next

                re.Pattern = "\[mDown=(.[^\]]*)\](.[^\[]*)\[\/mDown]"
                Set strMatchs=re.Execute(strContent)
                For Each strMatch in strMatchs
                        tmpStr1=checkURL(strMatch.SubMatches(0))
                        tmpStr2=strMatch.SubMatches(1)
                        if len(memName)>0 then
                                strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""ļ"" style=""margin:0px 2px -4px 0px""/> <a href="""&tmpStr1&""" target=""_blank"">"&tmpStr2&"</a>",1,-1,0)
                         else
                                strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""ֻԱ"" style=""margin:0px 2px -4px 0px""/> ļֻԱ! <a href=""login.asp"">¼</a> | <a href=""register.asp"">ע</a>",1,-1,0)
                        end if
                Next

                re.Pattern = "\[mDown\](.[^\[]*)\[\/mDown]"
                Set strMatchs=re.Execute(strContent)
                For Each strMatch in strMatchs
                        tmpStr1=checkURL(strMatch.SubMatches(0))
                        if len(memName)>0 then
                                strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""ļ"" style=""margin:0px 2px -4px 0px""/> <a href="""&tmpStr1&""" target=""_blank"">شļ</a>",1,-1,0)
                         else
                                strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""ֻԱ"" style=""margin:0px 2px -4px 0px""/> ļֻԱ! <a href=""login.asp"">¼</a> | <a href=""register.asp"">ע</a>",1,-1,0)
                        end if
                Next

滻
'-----------ǩ----------------
        re.Pattern = "\[down=(download\.asp\?id=)([0-9]*)\](.[^\[]*)\[\/down]"
        Set strMatchs=re.Execute(strContent)
        For Each strMatch in strMatchs
            tmpStr1=checkURL(strMatch.SubMatches(0))
            tmpStr2=strMatch.SubMatches(1)
                        tmpStr3=strMatch.SubMatches(2)
            strContent=Shotan_Download(strContent,strMatch.Value,tmpStr1,tmpStr2,tmpStr3)
        Next        
        
        re.Pattern = "\[down\](download\.asp\?id=)([0-9]*)\[\/down\]"
        Set strMatchs=re.Execute(strContent)
        For Each strMatch in strMatchs
            tmpStr1=checkURL(strMatch.SubMatches(0))
            tmpStr2=strMatch.SubMatches(1)
            strContent=Shotan_Download(strContent,strMatch.Value,tmpStr1,tmpStr2,"")
        Next

        re.Pattern = "\[mDown=(download\.asp\?id=)([0-9]*)\](.[^\[]*)\[\/mDown]"
        Set strMatchs=re.Execute(strContent)
        For Each strMatch in strMatchs
            tmpStr1=checkURL(strMatch.SubMatches(0))
            tmpStr2=strMatch.SubMatches(1)
                        tmpStr3=strMatch.SubMatches(2)
            if len(memName)>0 then
                strContent=Shotan_Download(strContent,strMatch.Value,tmpStr1,tmpStr2,tmpStr3)
             else
                strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""ֻԱ"" style=""margin:0px 2px -4px 0px""/> ļֻԱ! <a href=""login.asp"">¼</a> | <a href=""register.asp"">ע</a>",1,-1,0)
            end if
        Next

        re.Pattern = "\[mDown\](download\.asp\?id=)([0-9]*)\[\/mDown]"
        Set strMatchs=re.Execute(strContent)
        For Each strMatch in strMatchs
            tmpStr1=checkURL(strMatch.SubMatches(0))
            if len(memName)>0 then
                strContent=Shotan_Download(strContent,strMatch.Value,tmpStr1,tmpStr2,"")
             else
                strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""ֻԱ"" style=""margin:0px 2px -4px 0px""/> ļֻԱ! <a href=""login.asp"">¼</a> | <a href=""register.asp"">ע</a>",1,-1,0)
            end if
        Next[/code]

Ĳǰķӵĸ϶࣬޸֮󣬽ټ 

'=====================ǰĸ==================================
                re.Pattern = "\[down=attachments\/(.[^\]]*)\](.[^\[]*)\[\/down]"
                Set strMatchs=re.Execute(strContent)
                For Each strMatch in strMatchs
                        tmpStr1=checkURL(strMatch.SubMatches(0))
                        tmpStr2=strMatch.SubMatches(1)
                        strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""ļ"" style=""margin:0px 2px -4px 0px""/> <a href=""attachments/"&tmpStr1&""" target=""_blank"">"&tmpStr2&"</a>",1,-1,0)
                Next                
                
                re.Pattern = "\[down\]attachments\/(.[^\[]*)\[\/down]"
                Set strMatchs=re.Execute(strContent)
                For Each strMatch in strMatchs
                        tmpStr1=checkURL(strMatch.SubMatches(0))
                        strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""ļ"" style=""margin:0px 2px -4px 0px""/> <a href=""attachments/"&tmpStr1&""" target=""_blank"">شļ</a>",1,-1,0)
                Next

                re.Pattern = "\[mDown=attachments\/(.[^\]]*)\](.[^\[]*)\[\/mDown]"
                Set strMatchs=re.Execute(strContent)
                For Each strMatch in strMatchs
                        tmpStr1=checkURL(strMatch.SubMatches(0))
                        tmpStr2=strMatch.SubMatches(1)
                        if len(memName)>0 then
                                strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""ļ"" style=""margin:0px 2px -4px 0px""/> <a href=""attachments/"&tmpStr1&""" target=""_blank"">"&tmpStr2&"</a>",1,-1,0)
                         else
                                strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""ֻԱ"" style=""margin:0px 2px -4px 0px""/> ļֻԱ! <a href=""login.asp"">¼</a> | <a href=""register.asp"">ע</a>",1,-1,0)
                        end if
                Next

                re.Pattern = "\[mDown\]attachments\/(.[^\[]*)\[\/mDown]"
                Set strMatchs=re.Execute(strContent)
                For Each strMatch in strMatchs
                        tmpStr1=checkURL(strMatch.SubMatches(0))
                        if len(memName)>0 then
                                strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""ļ"" style=""margin:0px 2px -4px 0px""/> <a href=""attachments/"&tmpStr1&""" target=""_blank"">شļ</a>",1,-1,0)
                         else
                                strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""ֻԱ"" style=""margin:0px 2px -4px 0px""/> ļֻԱ! <a href=""login.asp"">¼</a> | <a href=""register.asp"">ע</a>",1,-1,0)
                        end if
                Next
'=====================ǰĸ==================================

ϴ
1.ѹеdownload.aspļϴվĸĿ¼
2.ѹеattachment.aspļϴվĸĿ¼£ԭattachment.asp
3.ѹеAttachmentļϴԼ͵Plugins/ļ£Ȼͺ̨װһ

˵޸Ļߴû޸ĹԴ룬ֱӰ header.asp   common/ubbcode.asp ϴĿ¼ǡ

ע⣺д˲ǰļݣԱɲҪ鷳

